00010		DIMENSION INP(8),NXT(4),RN(9),JNP(7,50),JXT(4,50),SN(9,50)
00020		1 ,MINP(84),IRD(3),RD(19)
00060		DATA IRD/'(2A3,',0,'17F) '/
00100	1	FORMAT(84A1)
00150		JJ=0
00200		N='ACT'
00300		CALL IFILE(1,N)
00400	3	READ(1,1,END=2)MINP
00500		DO 4 K=1,7
00600		IF(MINP(K).NE.'L'.OR.MINP(K+1).NE.'C'.OR.MINP(K+2).NE.'S')
00625		1 GO TO 4
00642		IRD(2)='A2,  '
00660		IF(K.GT.5)IRD(2)='A3,  '
00665		REREAD IRD,RD
00900		DO 6 K=7,16
00950	6	RD(K)=RD(K+3)
01000		DO 5 K=4,18
01050	5	RD(K)=RD(K+1)
01200		TYPE 10,(RD(K),K=1,19)
01300		GO TO 3
01310	4	CONTINUE
01400		GO TO 3
01800	10	FORMAT(3A3,17F8.2)
01900	2	END